home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Learning Games
/
Learning Games (1995)(Maple Media).iso
/
kslogo13
/
demos.log
< prev
next >
Wrap
Text File
|
1994-04-27
|
1KB
|
23 lines
Circle :radius :amount
:radius=:radius*6.283185 :radius=:radius/18 repeat:amount [ fd:radius rt20 ]
Poly :sides :size
repeat:sides [ rt360/:sides fd:size ]
demo
repeat18 [ pu sp 0,0 fd50 rt20 pd :c=10 repeat20 [ fd:c :c=:c+5 rt90 ] ]
colorwheel
width10 repeat120 [ color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 rt3 ]
turn
colorwheel repeat360 [ width5 color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 width8 color15 bd100 rt8 ]
newdemo
scale15 sp-100,0 clr repeat9 [ repeat200 [ fd100 rt120 fd20 rt146 fd20 ] rt120 ]
clock
aspect.5 repeat180 [ sp0,0 sh:m clr fd200 sp0,0 sh:h fd150 :m=:m+24 :h=:h+2 ] aspect1
spin
scale15 rt90 repeat10 [ pu sp50,50 rt180 pd :c=0 repeat45 [ clr fd100 rt:c fd100 rt180-:c :c=:c+4 ] ]
logologo
lt90 aspect.6 width2 repeat8 [ pu sp0,0 fd140 rt360/14 lt90 color:c pd l o g o rt90 :c=:c+1.7 ] aspect1
bush
:col=8 repeat5 [ :c=-600 repeat7 [ color:col sh270 repeat19 [ pu sp:c,0 pd fd200 rt10 ] :c=:c+200 ] :col=:col+1 ]
logotwo
scale2 logologo :c=1 scale7 logologo